Internet Pratica/IPRAT_01.iso/ASP/ASPapp Portal/links.asp

Text File | 2002-03-13 | 18.5 KB | 872 lines

<!-- #include file="i_utils.asp" -->
<%
%>
<%
    dim keywords
    dim search_sql
    dim Cat
    dim Cat1
    dim Cat2
    dim Cat3
    dim CatID
    dim CatId1
    dim CatId2
    dim CatId3
    dim ParentId
    dim CatsList
    dim title_sql
    dim CatType
    dim SubCatId
    dim SubCat
    dim view_rootcats_sql
    dim view_subcats_sql
    dim DownloadURL
    dim Email
    dim LinkID
    dim URL
    dim Title
    dim LinkType
    dim Description
    dim DateAdded
    dim Priority
    dim ClickThrus
    dim Impressions
    dim DownloadFee
    dim view_links_sql
    dim RelatedCat
    dim RelatedCatId
    dim view_relatedcats_sql

sub request_search
''' request expected input parameters for this form
    keywords = request("keywords")
end sub
sub request_title
''' request expected input parameters for this form
    Cat = request("Cat")
    Cat1 = request("Cat1")
    Cat2 = request("Cat2")
    Cat3 = request("Cat3")
    CatID = request("CatID")
    CatId1 = request("CatId1")
    CatId2 = request("CatId2")
    CatId3 = request("CatId3")
    ParentId = request("ParentId")
    CatsList = request("CatsList")
end sub
sub request_view_rootcats
''' request expected input parameters for this form
    CatType = request("CatType")
    SubCatId = request("SubCatId")
    SubCat = request("SubCat")
    Cat = request("Cat")
    CatID = request("CatID")
end sub
sub request_view_subcats
''' request expected input parameters for this form
    SubCatId = request("SubCatId")
    SubCat = request("SubCat")
    Cat = request("Cat")
    CatID = request("CatID")
end sub
sub request_view_links
''' request expected input parameters for this form
    DownloadURL = request("DownloadURL")
    Email = request("Email")
    LinkID = request("LinkID")
    URL = request("URL")
    Title = request("Title")
    Cat = request("Cat")
    LinkType = request("LinkType")
    Description = request("Description")
    DateAdded = request("DateAdded")
    Priority = request("Priority")
    ClickThrus = request("ClickThrus")
    Impressions = request("Impressions")
    CatID = request("CatID")
    DownloadFee = request("DownloadFee")
end sub
sub request_view_relatedcats
''' request expected input parameters for this form
    Cat = request("Cat")
    CatID = request("CatID")
    RelatedCat = request("RelatedCat")
    RelatedCatId = request("RelatedCatId")
end sub

sub validate_search
''' request and validate data entered from this form
    keywords = trim(request("keywords"))
end sub
sub validate_title
''' request and validate data entered from this form
    Cat = trim(request("Cat"))
    Cat1 = trim(request("Cat1"))
    Cat2 = trim(request("Cat2"))
    Cat3 = trim(request("Cat3"))
    CatID = trim(request("CatID"))
    CatId1 = trim(request("CatId1"))
    CatId2 = trim(request("CatId2"))
    CatId3 = trim(request("CatId3"))
    ParentId = trim(request("ParentId"))
    CatsList = trim(request("CatsList"))
end sub
sub validate_view_rootcats
''' request and validate data entered from this form
    CatType = trim(request("CatType"))
    SubCatId = trim(request("SubCatId"))
    SubCat = trim(request("SubCat"))
    Cat = trim(request("Cat"))
    CatID = trim(request("CatID"))
end sub
sub validate_view_subcats
''' request and validate data entered from this form
    SubCatId = trim(request("SubCatId"))
    SubCat = trim(request("SubCat"))
    Cat = trim(request("Cat"))
    CatID = trim(request("CatID"))
end sub
sub validate_view_links
''' request and validate data entered from this form
    DownloadURL = trim(request("DownloadURL"))
    Email = trim(request("Email"))
    LinkID = trim(request("LinkID"))
    URL = trim(request("URL"))
    Title = trim(request("Title"))
    Cat = trim(request("Cat"))
    LinkType = trim(request("LinkType"))
    Description = trim(request("Description"))
    DateAdded = trim(request("DateAdded"))
    if DateAdded <> "" AND (not isdate(DateAdded)) then
        error_list.add "488560date","Added must be a valid date (MM/DD/YY)."
        b_error = true
    end if
    Priority = trim(request("Priority"))
    ClickThrus = trim(request("ClickThrus"))
    Impressions = trim(request("Impressions"))
    CatID = trim(request("CatID"))
    DownloadFee = trim(request("DownloadFee"))
end sub
sub validate_view_relatedcats
''' request and validate data entered from this form
    Cat = trim(request("Cat"))
    CatID = trim(request("CatID"))
    RelatedCat = trim(request("RelatedCat"))
    RelatedCatId = trim(request("RelatedCatId"))
end sub


sub db_select_Title
    Title_sql = "SELECT Cats.CatId, Cats.Cat As Cat, Cats1.Cat As Cat1, Cats1.CatId AS CatId1, Cats2.Cat AS Cat2, Cats2.CatId AS CatId2, Cats3.Cat AS Cat3, Cats3.CatId AS CatId3 FROM (((Cats As Cats3 left JOIN Cats As Cats2 ON Cats3.ParentId = Cats2.CatId) left JOIN Cats As Cats1 ON Cats2.ParentId = Cats1.CatId) LEFT JOIN Cats As Cats ON Cats1.ParentId = Cats.CatId) WHERE Cats3.CatId = " & to_sql(CatID,"number") & ""
end sub
sub db_delete_Title
    sql = "DELETE FROM " & _
    ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_RootCats
    view_RootCats_sql = "SELECT " & _
    "Cats.Cat AS Cat, " & _
    "Cats.CatId AS CatId," & _
    "SubCats.Cat AS SubCat," & _
    "SubCats.CatId AS SubCatId " & _
    "FROM ((Cats LEFT JOIN CatTypes ON CatTypes.CatTypeId = Cats.CatTypeId) " & _
    "LEFT JOIN Cats AS SubCats ON SubCats.ParentId = Cats.CatId) " & _
    "WHERE CatType = 'Resources' AND Cats.ParentId IS NULL ORDER BY Cats.Cat"
end sub
sub db_delete_view_RootCats
    sql = "DELETE FROM " & _
    ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_SubCats
    view_SubCats_sql = "SELECT " & _
    "Cats.Cat AS Cat, " & _
    "Cats.CatId AS CatId," & _
    "SubCats.Cat AS SubCat," & _
    "SubCats.CatId AS SubCatId " & _
    "FROM Cats LEFT JOIN Cats AS SubCats ON SubCats.ParentId = Cats.CatId " & _
    "WHERE Cats.ParentId = " & to_sql(CatID,"number") & " " & _
    "ORDER BY Cats.Cat"
end sub
sub db_delete_view_SubCats
    sql = "DELETE FROM " & _
    ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_Links
    if do_search = "1" then
    request_view_Links
    view_Links_sql = "SELECT " & _
    "AvgRating, " & _
    "Links.CatId," & _
    "Cat, " & _
    "ClickThrus, " & _
    "DownloadFee, " & _
    "Links.Description AS Description, " & _
    "DownloadURL, " & _
    "Email, " & _
    "DateAdded, " & _
    "Impressions, " & _
    "LinkID, " & _
    "LinkType, " & _
    "Priority, " & _
    "Ratings, " & _
    "Title, " & _
    "URL FROM Cats, Links, LinkTypes  WHERE Cats.CatID=Links.CatID AND Links.LinkTypeID=LinkTypes.LinkTypeID AND (Links.Title LIKE '%" & keywords & "%' OR Links.Description LIKE '%" & keywords & "%')"
    else
    view_Links_sql = "SELECT " & _
    "AvgRating, " & _
    "Links.CatId," & _
    "Cat, " & _
    "ClickThrus, " & _
    "DownloadFee, " & _
    "Links.Description AS Description, " & _
    "DownloadURL, " & _
    "Email, " & _
    "DateAdded, " & _
    "Impressions, " & _
    "LinkID, " & _
    "LinkType, " & _
    "Priority, " & _
    "Ratings, " & _
    "Title, " & _
    "URL FROM Cats, Links, LinkTypes WHERE Cats.CatID=Links.CatID AND  Links.LinkTypeID=LinkTypes.LinkTypeID AND Display=TRUE AND Links.CatID = " & to_sql(CatID,"number") & ""
    end if
    if request("sortby") <> "" AND inStr(lcase(view_Links_sql),"order by") = 0 then view_Links_sql = view_Links_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_Links
    sql = "DELETE FROM Links" & _
    " WHERE " & _
    "CatID = " & to_sql(CatID,"number") & ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_RelatedCats
    view_RelatedCats_sql = "SELECT Cat AS RelatedCat, CatID AS RelatedCatId FROM Cats WHERE RelatedId = " & to_sql(CatID,"number") & ""
end sub
sub db_delete_view_RelatedCats
    sql = "DELETE FROM " & _
    ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub

do_search = request("do_search")
''' request form keys
keywords = request("keywords")
CatID = request("CatID")
''' request action
action = lcase(request("action"))
''' action case handler
select case action

end select

'  no action was specified, so handle the default case(s)
if Keywords <> "" then
    db_select_Title
    db_select_view_SubCats
    db_select_view_RelatedCats
    db_select_view_Links
elseif CatID <> "" then
    db_select_Title
    db_select_view_SubCats
    db_select_view_RelatedCats
    db_select_view_Links
else
    db_select_view_RootCats
end if
%>

<!-- #include file='i_header.asp' -->
<!-- #include file='i_menu.asp' -->


<%
display_errs
display_msg
%>

<table  >
<form name="Search" action="links.asp" method="get" >
<tr>
    <td class='labelTD'>search links //</td>
    <td class='dataTD' width='140' nowrap>
        <input type=text  name="keywords" size="" maxlength="" value="<% =keywords%>"><input class=cmd type=submit value='GO'>
    </td>
</tr>
<input type=hidden name="do_search" value="1">

</form>
</table>


<% if catid = "" then %>
<!-- root level -->
<table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='links.asp'>Links</A></td>
</tr>
</table>
<% else %>
<!-- determine cat heirarchy from db -->
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if Title_sql <> "" then
    cmd.CommandText = Title_sql
    rs.Filter = ""
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<%

if results = true then

%>

<table  width='100%'>
<form name="Title" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
Cat = rs("Cat")
Cat1 = rs("Cat1")
Cat2 = rs("Cat2")
Cat3 = rs("Cat3")
CatID = rs("CatID")
CatId1 = rs("CatId1")
CatId2 = rs("CatId2")
CatId3 = rs("CatId3")
ParentId = rs("ParentId")
CatsList = rs("CatsList")
on error goto 0

%>

        <input type=hidden name="Cat" value="<% =Cat %>">


        <input type=hidden name="Cat1" value="<% =Cat1 %>">


        <input type=hidden name="Cat2" value="<% =Cat2 %>">


        <input type=hidden name="Cat3" value="<% =Cat3 %>">


        <input type=hidden name="CatID" value="<% =CatID %>">


        <input type=hidden name="CatId1" value="<% =CatId1 %>">


        <input type=hidden name="CatId2" value="<% =CatId2 %>">


        <input type=hidden name="CatId3" value="<% =CatId3 %>">


        <input type=hidden name="ParentId" value="<% =ParentId %>">

<tr>
    <td class='dataTD' style="{padding:0px;border-width:0px;}">
        <table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='links.asp'>Links</A> <% if Cat1 <> "" then %> › <a href='links.asp?CatId=<% =CatId1 %>'><% =Cat1 %></a><% end if %> <% if CatId2 <> "" then %> › <a href='links.asp?CatId=<% =CatId2 %>'><% =Cat2 %></a><% end if %> › <a href='links.asp?CatId=<% =CatId3 %>'> <% =Cat3 %></a> › <a href='links.asp?CatId=<% =CatId %>'><% =Cat %></a>
</td>
</tr>
</table><% =CatsList %>
    </td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>



<%

end if

%>


<% end if %>
<table width='100%'>
<tr>
<td>

<% ctr = 0 %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_RootCats_sql <> "" then
    cmd.CommandText = view_RootCats_sql
    rs.Filter = ""
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<%

if results = true then

%>

<table  >
<form name="view_RootCats" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
CatType = rs("CatType")
SubCatId = rs("SubCatId")
SubCat = rs("SubCat")
Cat = rs("Cat")
CatID = rs("CatID")
on error goto 0

%>
<% if LastCat <> Cat then %>
    <% if ctr mod 2 = 0 then %><tr><% end if %>
    <td width=50% valign=top>
    <P><BR><A class=HeaderFont href='links.asp?CatId=<% =CatId %>'><B><% =Cat %></B></A>
    <% ctr = ctr + 1 %>
<% end if %>
<A href='links.asp?CatId=<% =CatId %>'><% =SubCat %></A>
<%
LastCat = Cat
if LastCat = Cat then
%>
..
<% else %>
    </td>
    <% if (ctr+1) mod 2 = 0 then %></tr><% end if %>
<% end if %>

<%

lastgroup = Cat
rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>



<%

end if

%>


</td>
</tr>
</table>


<table width='100%'>
<tr>
<td>

<% ctr = 1 %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_SubCats_sql <> "" then
    cmd.CommandText = view_SubCats_sql
    rs.Filter = ""
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<%

if results = true then

%>

<table  >
<form name="view_SubCats" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
SubCatId = rs("SubCatId")
SubCat = rs("SubCat")
Cat = rs("Cat")
CatID = rs("CatID")
on error goto 0

%>
<% if LastCat <> Cat then %>
<% if ctr mod 2 > 0 then %>
</td>
</tr>
<tr valign=top>
<td width=50%>
<% else %>
</td>
<td width=50%>
<% end if %>
<P><BR><A class=HeaderFont href='links.asp?CatId=<% =CatId %>'><% =Cat %></A>

<%
set rsT = cn.Execute("SELECT COUNT(LinkId) FROM Links WHERE CatId=" & CatId & "")
Count = rsT(0)
rsT.Close
%>
(<% =Count %>)
<br>
<% SubCatCtr = 0 %>
<% end if %>
<A href='links.asp?CatId=<% =CatId %>'><% =SubCat %></A>
<% SubCatCtr = SubCatCtr + 1 %>
<% if LastCat = Cat AND SubCatCtr < 6 then %>, <% end if %>
<% LastCat = Cat %>
<% Ctr = Ctr + 1 %>
<%

lastgroup = Cat
rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>



<%

end if

%>


</td>
</tr>
</table>


<% sub display_sort_form %>
<form action='links.asp'>
<input type=hidden name=CatId value='<% =CatId %>'>
<select name=SortBy onChange="form.submit('this')">
<option value=''>order results by...</option>
<option value='Title'>Title (A-Z)</option>
<option value='AvgRating'>Rating (Low-High)</option>
</select>
</form>
<% end sub %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_Links_sql <> "" then
    cmd.CommandText = view_Links_sql
    rs.Filter = ""
    if CatID <> "" then rs.Filter = "CatID = " & to_sql(CatID,"number")
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
<% if CatId <> "" AND results then %><% display_sort_form %><% end if %>
</td>
</tr>
</table>
<%

if results = true then

%>

<table  width='100%'>
<form name="view_Links" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
DownloadURL = rs("DownloadURL")
Email = rs("Email")
LinkID = rs("LinkID")
URL = rs("URL")
Title = rs("Title")
Cat = rs("Cat")
LinkType = rs("LinkType")
Description = rs("Description")
DateAdded = rs("DateAdded")
Priority = rs("Priority")
ClickThrus = rs("ClickThrus")
Impressions = rs("Impressions")
CatID = rs("CatID")
DownloadFee = rs("DownloadFee")
on error goto 0

%>
<br>
<table border=0 bgcolor=#<% if ctr mod 2 = 0 then %>CCCCCC<% else %>EFEFEF<% end if %> cellspacing=1 width=100%>
<tr>
    <td width='40%' style="{color:#444444}">
    <% if Date-DateAdded < 5 then %><img src='images/icon_new.gif' width=30 height=10><% end if %>
    <A href="click_thru.asp?LinkId=<% =LinkID %>" target="launch_win" style="{color:#111111}">
    <b><% =Title %></B>
    </A>
    <% if DownloadURL <> "" then %>á[<A href='<% =DownloadURL %>' style="{color:#111111}">download it!</A>]<% end if %>
</td>
<td align=right style="{color:#444444}">
    <b>Views:</b> <% =ClickThrus %>
    <% if DownloadFee <> "" then %>
    <b> Cost:</b> <% =DownloadFee %>
    <% end if %>
</td>
</tr>
<tr>
<td style="{color:#444444}">
</td>
<td align=right style="{color:#444444}">
    [<A href="mailto:[e-mail]" style="{color:#111111}">report errors</A>]
</td>
</tr>
<tr>
    <td colspan=2 style="{color:#555555}"><% =Description %></td>
</tr>
</table>
<% ctr = ctr + 1 %>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>



<%

end if

%>


<br><br>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_RelatedCats_sql <> "" then
    cmd.CommandText = view_RelatedCats_sql
    rs.Filter = ""
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
Also see...
</td>
</tr>
</table>
<%

if results = true then

%>

<table  >
<form name="view_RelatedCats" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
Cat = rs("Cat")
CatID = rs("CatID")
RelatedCat = rs("RelatedCat")
RelatedCatId = rs("RelatedCatId")
on error goto 0

%>

        <input type=hidden name="Cat" value="<% =Cat %>">


        <input type=hidden name="CatID" value="<% =CatID %>">

<tr>
    <td class='dataTD' >
        <a href="links.asp?CatId=<% =RelatedCatId %>"><% =RelatedCat %></a>
    </td>
</tr>

        <input type=hidden name="RelatedCatId" value="<% =RelatedCatId %>">

<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

    [no related categories]

<%

end if

%>




<!-- #include file=i_footer.asp -->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>